home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue61 / System / MainForm.dfm < prev    next >
Encoding:
Text File  |  2000-08-07  |  2.0 KB  |  103 lines
  1. object Form1: TForm1
  2.   Left = 509
  3.   Top = 135
  4.   BorderStyle = bsDialog
  5.   Caption = 'FTP Browser Demo for ftp.microsoft.com'
  6.   ClientHeight = 416
  7.   ClientWidth = 550
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   OldCreateOrder = False
  15.   Position = poScreenCenter
  16.   OnCreate = FormCreate
  17.   OnDestroy = FormDestroy
  18.   PixelsPerInch = 96
  19.   TextHeight = 13
  20.   object CurrentDir: TLabel
  21.     Left = 8
  22.     Top = 8
  23.     Width = 3
  24.     Height = 13
  25.   end
  26.   object FileList: TListView
  27.     Left = 8
  28.     Top = 32
  29.     Width = 441
  30.     Height = 305
  31.     Color = 8404992
  32.     Columns = <
  33.       item
  34.         Caption = 'FileName'
  35.         Width = 150
  36.       end
  37.       item
  38.         Caption = 'File Size'
  39.         Width = 200
  40.       end>
  41.     Font.Charset = DEFAULT_CHARSET
  42.     Font.Color = clYellow
  43.     Font.Height = -11
  44.     Font.Name = 'MS Sans Serif'
  45.     Font.Style = []
  46.     ParentFont = False
  47.     SortType = stData
  48.     TabOrder = 0
  49.     ViewStyle = vsReport
  50.     OnCompare = FileListCompare
  51.     OnDblClick = FileListDblClick
  52.     OnSelectItem = FileListSelectItem
  53.   end
  54.   object Panel1: TPanel
  55.     Left = 0
  56.     Top = 344
  57.     Width = 550
  58.     Height = 72
  59.     Align = alBottom
  60.     BevelOuter = bvLowered
  61.     BorderWidth = 3
  62.     TabOrder = 1
  63.     object Status: TLabel
  64.       Left = 4
  65.       Top = 4
  66.       Width = 542
  67.       Height = 64
  68.       Align = alClient
  69.       AutoSize = False
  70.     end
  71.   end
  72.   object UpButton: TButton
  73.     Left = 464
  74.     Top = 40
  75.     Width = 75
  76.     Height = 25
  77.     Caption = 'Up'
  78.     TabOrder = 2
  79.     OnClick = UpButtonClick
  80.   end
  81.   object Download: TButton
  82.     Left = 464
  83.     Top = 304
  84.     Width = 75
  85.     Height = 25
  86.     Caption = 'Get File'
  87.     Enabled = False
  88.     TabOrder = 3
  89.     OnClick = DownloadClick
  90.   end
  91.   object Animate1: TAnimate
  92.     Left = 120
  93.     Top = 8
  94.     Width = 100
  95.     Height = 80
  96.     Active = False
  97.   end
  98.   object SaveDialog: TSaveDialog
  99.     Left = 480
  100.     Top = 144
  101.   end
  102. end
  103.